home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap8 / 8_6 / vote.cgi < prev    next >
Encoding:
Text File  |  1996-06-15  |  1.3 KB  |  44 lines
  1. #!/usr/local/bin/perl
  2.  
  3. # Send out the http header
  4.  
  5.   print "Content-type: text/html\n\n";
  6.  
  7.  
  8. unshift (@INC, "/usr/local/etc/httpd/cgi-bin/Library");
  9. require "cgi-lib.pl";
  10. &ReadParse(*MYDATA);
  11.  
  12.  
  13.  
  14.   open (USERFILE, ">$MYDATA{'lname'}-$MYDATA{'fname'}.registration");
  15.   print USERFILE "$MYDATA{'lname'}\|$MYDATA{'fname'}\|$MYDATA{'phone'}\|$MYDATA{'email'}\|$MYDATA{'ethnicity'}\|$MYDATA{'age'}";
  16.   close (USERFILE);
  17.  
  18.  
  19.   print <<"  end_of_html";
  20.  
  21.   <HTML><HEAD><TITLE>Voting Form</TITLE></HEAD><BODY>
  22.   <CENTER><H2>Voting Form</H2></CENTER>
  23.   <FORM METHOD = "post" ACTION = "process_vote.cgi">
  24.   <B>District One</B>
  25.   <BLOCKQUOTE>
  26.   <INPUT TYPE = "radio" NAME = "district_1" VALUE = "Bob Frog">Bob Frog<BR>
  27.   <INPUT TYPE = "radio" NAME = "district_1" VALUE = "Jane Doe">Jane Doe<BR>
  28.   <INPUT TYPE = "radio" NAME = "district_1" VALUE = "Barney Rubble">Barney Rubble<BR>
  29.   </BLOCKQUOTE>
  30.   <B>District Two</B>
  31.   <BLOCKQUOTE>
  32.   <INPUT TYPE = "radio" NAME = "district_2" VALUE = "Jim Dandy">Jim Dandy<BR>
  33.   <INPUT TYPE = "radio" NAME = "district_2" VALUE = "Karen West">Karen West<BR>
  34.   <INPUT TYPE = "radio" NAME = "district_2" VALUE = "Jeremy Flat">Jeremy Flat<BR>
  35.   </BLOCKQUOTE>
  36.   <INPUT TYPE = "hidden" NAME = "file" 
  37.    VALUE = "$MYDATA{'lname'}-$MYDATA{'fname'}.registration">
  38.   <INPUT TYPE = "submit" VALUE = "Submit Information">
  39.   </CENTER></BODY></HTML>
  40.   end_of_html
  41.  
  42.  
  43.  
  44.